1 clear 
2 BC=56
3 FC=132
4 NT=1
5 print ;print " input DENOMINATOR
10 input " ",N
20 for T=1to N-1
30 X=0
40 print 
50 A=T
60 print #2,A,#1,"div ",#1,N,#1,"=.",
70 if (Amul 10)div N<1goto 140
80 A=Amul 10
90 print #1,(Adiv N),
100 X=X+1
110 if X>=N-1goto 190
120 A=A-(Adiv N)mul N
130 goto 70
140 A=Amul 10
150 print #1,0,
160 X=X+1
170 if X>=N-1goto 190
180 goto 70
190 next T
200 if &(23)=1goto 1
210 goto 200
:return ;run 